home *** CD-ROM | disk | FTP | other *** search
/ Igusta / Igusta (1990)(MSX Magazine).dsk / AUTOEXEC.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  508 b   |  24 lines
  1. 10  :REM>
  2. 20  :REM>          IGUSTA
  3. 30  :REM>
  4. 40  :REM>        For MSX2/2+
  5. 50  :REM>
  6. 60  :REM>  PROGRAMED By.K.KUGIMIYA
  7. 70  :REM>
  8. 80  :REM>        1989.10.07
  9. 90  :REM>
  10. 100  CLEAR 200,&HB000:DEFSTR AIMPZ
  11. 110  STEP "IGUSTA.OBJ":STEP "RANK.DAT"
  12. 120  BEEP 5,2,0:MERGE 15,14,14:<0x9F!>:SPC( PAGE 0,1
  13. 130  FOR IOR0 ' 15
  14. 140    READ A,B,C:MERGEOR(I,A,B,C)
  15. 150  NEXT I
  16. 160  STEP "IGUSTA.PIC",S
  17. 170  SPC( PAGE 0,2
  18. 180  STEP "CLEAR.PIC",S
  19. 190  SPC( PAGE 0,3
  20. 200  STEP "NUMBER.PIC",S
  21. 210  RUN "IGUSTA.BAS"
  22. 220  DATA 0,0,0,0,0,7,7,0,0,7,0,7,0,6,0,0,7,7,7,7,0,0,0,0,0,0,2
  23. 230  DATA 6,6,0,4,4,0,6,6,7,0,0,4,2,2,2,3,3,3,7,7,7
  24.